function [z]=meanrel(x,y)
 e=double(x)-double(y);
 z=mean(abs(e(x~=0)./double(x(x~=0))));
